unit CGIFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp;

type
  TWebModule1 = class(TWebModule)

    procedure WebModule1WebActionItem1Action(
                                      Sender: TObject;
                                      Request: TWebRequest; 
                                      Response: TWebResponse; 
                                      var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(
                                                           Sender: TObject;
                                                           Request: TWebRequest; 
                                                           Response: TWebResponse; 
                                                           var Handled: Boolean);

var Page:TStringList; i:integer;
begin
  Page:=TStringList.Create;
  with Page do begin
    Add('<HTML>');
    Add('Hello Delphi CGI');
    Add('</HTML>');
  end;
  Response.Content:=Page.Text;
  Handled:=True;
end;

end.
